home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 17 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  302 b   |  16 lines
  1. 10 ;RD TRK 17
  2. 20 CLRALL LDA #$08; AT BEGINNING OF EACH
  3. 30 STA AL2+2; READ THIS ROUTINE CLEARS ALL BUFFERS
  4. 35 AL LDA #$00
  5. 40 LDY #$00
  6. 50 AL2 STA $0000,Y
  7. 60 INY
  8. 70 BNE AL2
  9. 80 INC AL2+2
  10. 90 LDA AL2+2
  11. 110 CMP #$40; FILL $0800 $3FFF WITH 0'S
  12. 120 BEQ FIN1
  13. 140 JMP AL
  14. 150 FIN1 RTS
  15. 310 .FILE RD TRK 18
  16.